1 POKE53280,12:POKE53281,9
2 DIMA$(11)
3 C=11
4 VC=9
5 PRINT"[147]"
6 REM READA$:PRINTA$,A
7 REM GETD$:IFD$<>" "THEN7
8 REM A=A+1:GOTO6
10 V=53248
20 POKEV+21,255:POKEV+23,255:POKEV+29,255
30 FORE=200TO207:POKE2040+E-200,E:FORD=64*ETO64*E+62:READS
31 POKED,S:NEXT:POKEV+39+E-200,C:NEXT
40 PRINT"[129]     [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
41 FORD=1TO16:PRINT"                       ":NEXT
42 PRINT"[150]  "
99 POKEV+8,112:POKEV+9,106
100 FORD=105TO64STEP-1
110 POKEV,D:POKEV+1,D
115 POKEV+2,112:POKEV+3,D
120 POKEV+4,160+64-D:POKEV+5,D
130 POKEV+6,D:POKEV+7,106
140 POKEV+10,160+64-D:POKEV+11,106
150 POKEV+12,D:POKEV+13,106+106-D
160 POKEV+14,112:POKEV+15,106+106-D
190 NEXT
215 PRINTCHR$(14)"";
216 FORD=1TO18
217 READA$
220 PRINT"";
221 FORL=1TOLEN(A$):PRINTMID$(A$,L,1);:FORH=1TO100:NEXT:NEXT:PRINT
240 NEXT
245 POKE198,0
250 GETA$:IFA$<>CHR$(13)THEN250
255 PRINT"";
260 FORD=1TO23:PRINTSPC(24)"                ";:FORB=1TO30:NEXT:NEXT
265 PRINT"";
270 FORD=1TO8
277 READA$
280 PRINT"";
290 FORL=1TOLEN(A$):PRINTMID$(A$,L,1);:FORH=1TO100:NEXT:NEXT:PRINT
300 NEXT
305 FORL=1TO2E3:NEXT:FORD=PEEK(V+14)TOPEEK(V+14)+48STEP.25:POKEV+14,D:NEXT
309 PRINT"[150][208][210][197][211][211] [210][197][212][213][210][206]":POKE198,0
310 GETA$:IFA$<>CHR$(13)THEN310
320 PRINT"";
330 FORD=1TO23:PRINTSPC(24)"                ";:FORB=1TO30:NEXT:NEXT
350 FORD=1TO11:READA$(D):NEXT:A=INT(RND(1)*11)+1
360 FORD=0TO7:A(D)=(VAL(MID$(A$(A),D+1,1))-1):NEXT
370 FORD=1TO9:READB(D):NEXT
380 POKEV+21,0
390 PRINT"[144]  [207].[203] HERE COMES THE SCRAMBLED PICTURE"
400 POKEV+A(0)*2,64:POKEV+A(0)*2+1,64
401 POKEV+A(1)*2,112:POKEV+A(1)*2+1,64
402 POKEV+A(2)*2,160:POKEV+A(2)*2+1,64
403 POKEV+A(3)*2,64:POKEV+A(3)*2+1,106
404 POKEV+A(4)*2,112:POKEV+A(4)*2+1,106
405 POKEV+A(5)*2,160:POKEV+A(5)*2+1,106
406 POKEV+A(6)*2,64:POKEV+A(6)*2+1,148
407 POKEV+A(7)*2,112:POKEV+A(7)*2+1,148
410 C=0:FORD=0TO7:C=C+2^A(D):POKEV+21,C:FORH=1TO200:NEXT:NEXT
411 PRINT"
412 [153]""[166]30)"1  2  3CMDCMDCMDCMDCMDCMDCMD4  5  6CMDCMDCMDCMDCMDCMDCMD7  8  9"
420 [153]"(null)OVE"
430 [161]M$:M[178][197](M$):[139]M$[178]""[167]430
435 [139]M[179]1[167]430
440 M1[178][197]([200]([196](B(VC)),2))
441 M2[178][197]([202]([196](B(VC)),3,1))
442 M3[178][197]([202]([196](B(VC)),4,1))
443 M4[178][197]([201]([196](B(VC)),1))
445 [139] M[179][177]M1 [175] M[179][177]M2 [175] M[179][177]M3 [175] M[179][177]M4 [167] 430
450 [153]"    WAIT":[139]M[179]4[167]Y[178]64
451 [139]M[177]3[175]M[179]7[167]Y[178]106
452 [139]M[177]6[167]Y[178]148
453 [139]M[178]1[176]M[178]4[176]M[178]7[167]X[178]64
454 [139]M[178]2[176]M[178]5[176]M[178]8[167]X[178]112
455 [139]M[173]3[178][181](M[173]3)[167]X[178]160
456 [139]M[178]VC[170]3[167][141]800
457 [139]M[170]3[178]VC[167][141]850
458 [139]M[178]VC[170]1[167][141]900
459 [139]M[170]1[178]VC[167][141]950
470 A(VC[171]1)[178]A(M[171]1):A(M[171]1)[178]99
475 C[178]0
480 [129]D[178]1[164]8:[139]A(D)[178]D[167]C[178]C[170]1
490 [130]
500 [139]C[178]7[167]2000
510 VC[178]M
515 M5[178]M5[170]1:[153]"STOPMOVESWAIT";M5
520 [137]420
800 [143] ** UP **
805 [129]L[178]Y[164]Y[171]42[169][171]1:[151]V[170]A(M[171]1)[172]2[170]1,L:[130]
820 [142]
850 [143] * DOWN *
855 [129]L[178]Y[164]Y[170]42:[151]V[170]A(M[171]1)[172]2[170]1,L:[130]
870 [142]
900 [143] * LEFT *
905 [129]L[178]X[164]X[171]48[169][171]1:[151]V[170]A(M[171]1)[172]2,L:[130]
920 [142]
950 [143] * RIGHT *
955 [129]L[178]X[164]X[170]48:[151]V[170]A(M[171]1)[172]2,L:[130]
970 [142]
999 [143] **** SPRITE 1 ****
1000 [131]0,0,0,0,0,31,0,1,224,0,6,0,0,24,15,0,96,127,0,65,255,0,135,255,1,31,255
1001 [131]2,63,252,4,63,252,4,127,252,4,255,128,8,254,15,8,254,127,16,254,187,19
1002 [131]252,159,35,248,143,39,248,112,47,240,15,35,224,0
1003 [143] **** SPRITE 2 ****
1004 [131]0,0,0,224,0,0,30,0,127,1,255,128,92,0,16,252,198,17,255,241,10,255,248
1005 [131]146,255,252,212,63,254,32,31,255,143,31,255,255,231,255,255,211,255,255
1006 [131]208,16,68,216,122,68,144,154,137,17,113,2,226,134,18,21,27,41,42,36,196
1007 [143] **** SPRITE 3 ****
1008 [131]0,0,0,0,0,0,128,0,0,103,0,0,24,240,0,0,28,0,0,3,0,31,128,192,255,248,32
1009 [131]255,252,32,255,252,16,255,254,16,192,126,8,128,63,8,63,31,4,220,158,4
1010 [131]46,94,4,102,126,8,62,78,8,156,192,8,127,0,136
1011 [143] **** SPRITE 4 ****
1012 [131]32,230,0,35,1,192,34,0,63,33,128,0,16,120,28,16,7,255,10,0,1,9,147,14,4
1013 [131]100,8,2,24,16,1,32,16,0,192,32,0,54,192,0,9,0,0,4,3,0,2,132,0,1,104,0,0
1014 [131]145,0,0,65,0,0,126,0,0,72
1015 [143] **** SPRITE 5 ****
1016 [131]4,68,2,132,137,154,73,40,180,137,36,9,145,65,0,18,65,32,34,130,32,36,132
1017 [131]24,73,0,4,74,0,0,74,3,142,144,7,255,145,30,254,144,248,62,16,16,62,75,11
1018 [131]158,160,134,124,32,64,24,16,56,0,8,7,0,2,0,14
1019 [143] **** SPRITE 6 ****
1020 [131]0,0,136,0,65,136,14,50,48,1,140,80,192,64,96,48,48,160,8,9,64,4,6,64,2,0
1021 [131]128,67,33,0,34,198,0,18,24,0,20,96,0,36,128,0,43,0,0,68,0,0,4,0,0,24,0,0
1022 [131]32,0,0,64,0,0,128,0,0
1023 [143] **** SPRITE 7 ****
1024 [131]0,0,38,0,0,33,0,0,32,0,0,144,0,3,156,0,31,18,3,190,9,31,166,8,30,3,4,24,3
1025 [131]4,24,3,7,27,131,4,31,129,132,14,1,162,12,97,130,12,232,3,15,192,2,15,0,1
1026 [131]4,0,1,0,0,1,0,0,1
1027 [143] **** SPRITE 8 ****
1028 [131]1,128,17,0,120,225,248,7,2,6,0,12,1,255,240,0,64,0,128,32,0,65,32,0,62
1029 [131]32,0,0,64,0,0,64,0,192,64,0,35,64,0,28,64,0,0,32,0,128,32,0,112,32,0,8
1030 [131]160,0,7,32,0,0,16,0,0,16,0
1040 [131]"SYS(null)OUR OBJECTIVE",IS TO RECREATE,THIS PICTURE ,"OF VAL.(null)."
1050 [131],"STOPLEFT$E IS MADE UP",OF A GRID OF,3X3 SPRITE,YOU CAN MOVE
1060 [131]EACH CELL INTO,THE VACANT ONE,,"(null)OU DO THIS BY","TYPING THE (null)O."
1070 [131]OF THE CELL YOU,WANT TO MOVE
1080 [131],"DEF(null)(null)(null) (null)(null)VAL(null)(null) (null)VAL(null)(null)(null)(null)"
1090 [131]"(null)HE GRID IS SET","UP LIKE THIS :TAN"
1100 [131]"  1  2  3","  4  5  6","  7  8  9"
1110 [131],"STOP(null)O TYPING 8","WILL DO THIS"
1120 [131]82167534,17654238,85476213,32856471,38764152,41257360,64132875,61873425
1130 [131]57638241,84657312,28654137
1140 [131]0024,0135,0260,0157,2468,0359,0480,0579,0680
2000 [151]54296,15
2010 A1[178]54291:R1[178]54292:A2[178]54277:R2[178]54278
2020 H1[178]54287:L1[178]54286:W1[178]54290:H2[178]54273:L2[178]54272:W2[178]54276
2040 [151]A1,102:[151]R1,0:[151]A2,96:[151]R2,0
2100 [135]H,L,D
2103 [139]H[178]0[167][151]R1,14:[151]54296,0:[151]H1,0:[151]L1,0:[151]H2,0:[151]L2,0:[128]
2104 [151]W1,0:[151]W2,0
2105 [151]W1,17:[151]W2,33
2106 [151]H1,0:[151]H1,H:[151]H2,0:[151]H2,H
2110 [151]L1,0:[151]L1,L:[151]L2,0:[151]L2,L:[129]E[178]0[164]7[172]D:[151]R2,136:[151]R1,136:[130]
2120 [137]2100
2200 [131]34,75,6,51,97,6,45,198,1,43,52,1,38,126,1,43,52,1,34,75,6,25,177,10
2210 [131]28,214,6,57,172,6,51,97,1,48,127,1,43,52,1,48,127,1,38,126,6,64,188,10
2220 [131]38,126,6,68,149,6,64,188,1,57,172,1,51,97,1,45,198,1,40,200,6,34,75,10
2221 [131]40,200,6,34,75,6,68,149,4,76,252,2,64,188,12
2225 [131]68,150,6,102,196,6,90,99,1,86,52,1,76,126,1,86,52,1,68,75,6,50,177,10
2226 [131]56,214,6,114,172,6,102,97,1,96,127,1,86,52,1,96,127,1,76,126,6,128,188,10
2227 [131]76,126,6,136,149,6,128,188,1,114,172,1,102,97,1,90,198,1,80,200,6,68,75,10
2230 [131]80,200,6,68,75,6,136,149,4,152,252,2,128,188,12,136,149,6,204,194,6
2240 [131]192,254,6,152,252,6,136,149,12
2300 [131]0,0,0